perm filename CARD.FAI[KBD,ROB]1 blob
sn#448067 filedate 1979-06-05 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00024 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00003 00002 TITLE CARD
C00007 00003 TABLE FORMAT
C00008 00004 CMARK←←400000
C00009 00005 1 BEGIN FOONLY CARD (9X11)
C00011 00006 2 BEGIN CAMBION LONG
C00013 00007 3 BEGIN CAMBION SHORT
C00015 00008 4 BEGIN CAMBION LONG AND SKINNY
C00017 00009 MACROS FOR DEC CARDS
C00020 00010 5 BEGIN DEC SINGLE HEIGHT BOARD
C00021 00011 6 BEGIN DEC DOUBLE HEIGHT BOARD
C00023 00012 7 BEGIN LONG DEC QUAD HEIGHT BOARD (CURRENTLY 10.430 X 12.500)
C00025 00013 8 BEGIN LONG DEC QUAD HEIGHT BOARD WITH 2 BACK CONNECTORS (CURRENTLY 10.430 X 12.500)
C00027 00014 9 BEGIN INTEL CARD (8.175 X 10.5)
C00029 00015 10 BEGIN DEC HEX HEIGHT BOARD (8.175 X 15.650????)
C00032 00016 11 BEGIN INTEL CARD SPECIAL FOR TED(8.175 X 10.5)
C00034 00017 12 BEGIN DEC QUAD HEIGHT BOARD (CURRENTLY 10.460 X 8.430)
C00036 00018 13 BEGIN INTEL EXTENDER CARD (8.175 X 11.5)
C00039 00019 14 BEGIN DATAMEDIA CARD (6.1 X 8.9)
C00041 00020 15 BEGIN S1 MU BOARD (8.775 X 16)
C00043 00021 16 BEGIN S1 BACKPANEL (15.6 X 18)
C00044 00022 17 BEGIN S1 ADAPTER (1.275 X 0.985)
C00045 00023 18 BEGIN MICRO SWITCH SERIALIZER
C00047 00024 END OF ALL CARDS
C00048 ENDMK
C⊗;
TITLE CARD
COMMENT⊗ TO MAKE A NEW CARD, ENCLOSE ITS STRUCTURE (SEE NEXT PAGE) IN A
CONDITIONAL "IFE CRDTYP-n", WHERE n IS A NUMBER DIFFERENT FROM ALL
OTHER CARD ASSEMBLY NUMBERS, ADD A LINE TO THE "PRINTS" STATEMENT
IMMEDIATELY BELOW, INCLUDE IN THE CARD DEFINITION A PRINTS COMMAND
STATING THE TYPE OF CARD BEING COMPILED, AND DEFINE A MACRO WHOSE
NAME IS THE CARD NAME. THIS MACRO SHOULD SET CRDTYP TO n AND
CALL CHECK TO WARN OF REDEFINITION.
⊗
CRDTYP←←0
;IO VERSION NUMBER
CRDVER←←1
PRINTS/
TYPE NAME OF .CRD FILE TO BE CREATED, THEN TYPE <CTRL><META>LINEFEED
NAME DESCRIPTION
---- -----------
FOONLY QUAD DEC WITH BACK EDGE CONNECTORS
CAMBL LONG CAMBION
CAMBS SHORT CAMBION
CAMBLS LONG AND SKINNY CAMBION
DECS DEC SINGLE HEIGHT
DECD DEC DOUBLE HEIGHT
DECLQ LONG DEC QUAD HEIGHT
DECLQB LONG DEC QUAD HEIGHT WITH 2 BACK CONNECTORS
DECH DEC HEX HEIGHT
INTEL INTEL CARD (8.175 X 10.5)
INTELT INTEL CARD (SPECIAL FOR TED)
DECQ DEC QUAD HEIGHT (STANDARD)
INTELX INTEL EXTENDER CARD
DM DATAMEDIA (CRT TERMINAL) BOARD
S1MU S1 MU CARD
S1BACK S1 BACKPANEL
S1ADAP S1 ADAPTOR
MICROS Micro Switch serializer card
/
DEFINE CHECK<
IFN CRDTYP,<
PRINTS/
PREVIOUS CARD FLUSHED!!!
/
>;IFN CRDTYP
>;CHECK
DEFINE FOONLY<
CHECK
CRDTYP←←1
>
DEFINE CAMBL<
CHECK
CRDTYP←←2
>
DEFINE CAMBS<
CHECK
CRDTYP←←3
>
DEFINE CAMBLS<
CHECK
CRDTYP←←4
>
DEFINE DECS<
CHECK
CRDTYP←←5
>
DEFINE DECD<
CHECK
CRDTYP←←6
>
DEFINE DECLQ<
CHECK
CRDTYP←←7
>
DEFINE DECLQB<
CHECK
CRDTYP←←=8
>
DEFINE DECH<
CHECK
CRDTYP←←=10
>
DEFINE INTEL<
CHECK
CRDTYP←←=9
>
DEFINE INTELT<
CHECK
CRDTYP←←=11
>
DEFINE DECQ<
CHECK
CRDTYP←←=12
>
DEFINE INTELX<
CHECK
CRDTYP←←=13
>
DEFINE DM<
CHECK
CRDTYP←←=14
>
DEFINE S1MU<
CHECK
CRDTYP←←=15
>
DEFINE S1BACK<
CHECK
CRDTYP←←=16
>
DEFINE S1ADAP<
CHECK
CRDTYP←←=17
>
DEFINE MICROS<
CHECK
CRDTYP←←=18
>
DEFINE NAME (A)<
CRDSIX: SIXBIT/A/
CRDNAM: ASCIZ/A/
>
.INSERT TTY:
STRT: RESET
INIT 17
'DSK '
0
HALT
MOVE 0,CRDSIX
MOVEM 0,FILNAM
MOVSI 0,'CRD'
MOVEM 0,FILNAM+1
ENTER FILNAM
HALT STRT
OUTPUT [-LENGTH,,CARD-1
0]
RELEASE
OUTSTR[ASCIZ/
/]
OUTSTR CRDNAM
OUTSTR [ASCIZ/.CRD WRITTEN
/]
PTLOAD[ 0
[ASCIZ\DELETE CARD.REL/Q
\]]
EXIT
FILNAM: 0
'CRD '
0
0
;TABLE FORMAT
COMMENT ⊗
CRDVER
________
| X,Y,I STARTING POINT OF BOARD EDGE (USES GERBER WHEEL POSITION 3)
| X,Y REST OF POINTS DESCRIBING BOARD EDGE
|_______
FMARK
________
| X,Y START FINGER FOR COMP SIDE (USES GERBER WHEEL POSITION 18)
| X,Y END FINGER
| BYTE (6)0,0,0,L,L,N FINGER NAME (FORMAT APPROPRIATE TO BOARD TYPE)
|_______
FMARK
________
|
| SOLDER SIDE FINGERS
|_______
FMARK
________
| X,Y START SHORTING BAR COMP SIDE
| X,Y END SHORTING BAR
|_______
FMARK
________
|
| SOLDER SIDE SHORTING BARS
|_______
FMARK
________
| X,Y OF TARGET (USES GERBER WHEEL POSITION 24)
|_______
CMARK
⊗
CMARK←←400000
FMARK←←<400000,,>
DEFINE XY(X,Y,Z)<
IFIDN <Z><I><1!><<X>/5*2,,<Y>/5*2>
>
DEFINE CPIN(L1,L2,PN)
<
BYTE(6)0,0,0,L1-"A"+1,L2-"A"+1,PN
>
DEFINE CCPIN(L1,PN)
<
BYTE(6)0,0,0,L1-"A"+1(12)PN
>
RADIX =10
;1 BEGIN FOONLY CARD (9X11)
IFE CRDTYP-1,<
NAME FOONLY
PRINTS/
COMPILING FOONLY CARD
/
CARD: CRDVER
XY -5500,-4500,I
XY 5500,-4500
XY 5500,-1050
XY 6000,-1050
XY 6000,1050
XY 5500,1050
XY 5500,4500
XY -5500,4500
XY -5500,2550
XY -6000,2550
XY -6000,-2550
XY -5500,-2550
XY -5500,-4500
FMARK
FOR PNP←"A","B"
<
PN←←1
FOR K←-950,950,100
< XY 5550,K
XY 6250,K
CPIN "B",PNP,PN
PN←←PN+1
>
PN←←1
FOR K←-2450,2450,100
< XY -5550,K
XY -6250,K
CPIN "A",PNP,PN
PN←←PN+1
>
FMARK
>
REPEAT 2,<
XY 6250,4500
XY 6250,-4500
XY -6250,4500
XY -6250,-4500
FMARK
>
XY 0,-5000
XY 4000,5000
XY -5000,5000
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-1
;END OF FOONLY CARD!!!!!!!!!!!!!!!!!!!!!
;2 BEGIN CAMBION LONG
IFE CRDTYP-2,<
NAME CAMBL
PRINTS/
COMPILING LONG CAMBION CARD
/
CARD: CRDVER
XY -4875,-4425,I
XY -4875,4200
XY -4625,4450
XY 4625,4450
XY 4875,4200
XY 4875,-4425
XY 4415,-4425
XY 4415,-4800
XY 835,-4800
XY 835,-4425
XY -835,-4425
XY -835,-4800
XY -4415,-4800
XY -4415,-4425
XY -4875,-4425
FMARK
FOR PNP←"A","B"
<
PN←←35
FOR K←-4325,-925,100
< XY K,-4450
XY K,-5050
CPIN "B",PNP,PN
PN←←PN-1
>
PN←←35
FOR K←925,4325,100
< XY K,-4450
XY K,-5050
CPIN "A",PNP,PN
PN←←PN-1
>
FMARK
>
REPEAT 2,<
XY 4875,-5050
XY -4875,-5050
FMARK
>
XY -5500,0
XY 5500,3000
XY 5500,-4000
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-2
;END CAMBION LONG!!!!!!!!!!!!!!!!!!
;3 BEGIN CAMBION SHORT
IFE CRDTYP-3,<
NAME CAMBS
PRINTS/
COMPILING SHORT CAMBION CARD
/
CARD: CRDVER
XY -4875,-1925,I
XY -4875,1950
XY -4625,2200
XY 4625,2200
XY 4875,1950
XY 4875,-1925
XY 4415,-1925
XY 4415,-2300
XY 835,-2300
XY 835,-1925
XY -835,-1925
XY -835,-2300
XY -4415,-2300
XY -4415,-1925
XY -4875,-1925
FMARK
FOR PNP←"A","B"
<
PN←←35
FOR K←-4325,-925,100
< XY K,-1850
XY K,-2550
CPIN "B",PNP,PN
PN←←PN-1
>
PN←←35
FOR K←925,4325,100
< XY K,-1850
XY K,-2550
CPIN "A",PNP,PN
PN←←PN-1
>
FMARK
>
REPEAT 2,<
XY 4875,-2550
XY -4875,-2550
FMARK
>
XY 0,-3500
XY 3000,3000
XY -4000,3000
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-3
;END OF CAMBION SHORT!!!!!!!!!!!!!!!!
;4 BEGIN CAMBION LONG AND SKINNY
IFE CRDTYP-4,<
NAME CAMBLS
PRINTS/
COMPILING LONG AND SKINNY CAMBION CARD
/
CARD: CRDVER
XY -4425,-2250,I
XY 4200,-2250
XY 4450,-2000
XY 4450,2000
XY 4200,2250
XY -4425,2250
XY -4425,1790
XY -4800,1790
XY -4800,-1790
XY -4425,-1790
XY -4425,-2250
FMARK
FOR PNP←"A","B"
<
PN←←35
FOR K←-1700,1700,100
< XY -4450,K
XY -5050,K
CPIN "A",PNP,PN
PN←←PN-1
>
FMARK
>
REPEAT 2,<
XY -5050,2250
XY -5050,-2250
FMARK
>
XY 0,-3000
XY 3000,3000
XY -4000,3000
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-4
;END OF CAMBION LONG AND SKINNY!!!!!!!!!!!!!!!!
;MACROS FOR DEC CARDS
DEFINE BEXY(X,Y)<
XY BXXX+X,YYY+Y
>
DEFINE EXY(X,Y)<
XY XXX+X,YYY+Y
>
DEFINE CONT(YYYY)<
YYY←YYYY
EXY 125,0
EXY 715,0
EXY 815,-2240
EXY 0,-2240
EXY 0,-2380
>
DEFINE CONB(YYYY)<
YYY←YYYY
EXY 125,0
EXY 815,0
EXY 715,-2240
EXY 0,-2240
EXY 0,-2380
>
DEFINE CON(ABSX,ABSY)<
XXX←ABSX
YYY←ABSY
EXY 125,0
EXY 750,0
EXY 750,-2240
EXY 0,-2240
EXY 0,-2380
>
DEFINE BCON(YYYY)<
YYY←YYYY
BEXY 0,0
BEXY 0,140
BEXY -815,140
BEXY -815,2380
BEXY -125,2380
>
DEFINE ONEPADDLE(Y,C,P)<
PN←←"A"
FOR K←Y-55,Y-55-17*125,-125<
XY XXX+40,K
XY XXX+1420,K
CPIN C,PN,P
PN←←PN+1
>;END FOR
>
DEFINE PADDLE(X,Y,PADL,SIDE)<
PN←←"A"
FOR K←Y-55,Y-55-17*125,-125<
TEMP1←X
comment⊗;I have no idea why some fingers are offset. Ted doesn't like it. So out
; it goes
IFE PADL-"A",<
IFE PN-"V"+4,<TEMP1←X-250>
IFE PN-"U"+4,<TEMP1←X-250>
>
IFE PADL-67,<
IFE PN-"V"+4,<TEMP1←X-250>
IFE PN-"U"+4,<TEMP1←X-250>
>
IFE PADL-"B",<
IFE PN-"A",<TEMP1←X-250>
IFE PN-"B",<TEMP1←X-250>
>
IFE PADL-"D",<
IFE PN-"A",<TEMP1←X-250>
IFE PN-"B",<TEMP1←X-250>
>
⊗
XY TEMP1+40,K
XY X+1420,K
CPIN PADL,PN,SIDE
PN←←PN+1
>;END FOR
>
DEFINE BPADDLE(Y,C,P)<
PN←←"V"-4
FOR K←Y+55+140,Y+55+140+17*125,125<
XY BXXX-40,K
XY BXXX-1420,K
CPIN C,PN,P
PN←←PN-1
>;END FOR
>
;5 BEGIN DEC SINGLE HEIGHT BOARD
IFE CRDTYP-5,<
NAME DECS
PRINTS/
COMPILING DEC SINGLE HEIGHT CARD
/
CARD: CRDVER
XXX←3690+125
BXXX←3690+125+815-8500
XY XXX,-1220,I
XY BXXX,-1220
XY BXXX,1220
XY XXX+125,1220
CON XXX,1120
ORG .-1
XY XXX,-1220
FMARK
ONEPADDLE(1120,"A",1)
FMARK
ONEPADDLE(1120,"A",2)
FMARK
REPEAT 2,<
XY XXX+1420,1720
XY XXX+1420,-1720
FMARK
>
XY 0,-2000
XY -3000,2000
XY 4000,2000
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-5
;END DEC SINGLE HEIGHT BOARD
;6 BEGIN DEC DOUBLE HEIGHT BOARD
IFE CRDTYP-6,<
NAME DECD
PRINTS/
COMPILING DEC DOUBLE HEIGHT CARD
/
CARD: CRDVER
XX←3815
YY←-2565
BXXX←XX+725-8500 ;8.5 INCHES FROM TIP TO TIP
XY XX,YY,I
XY BXXX,YY
XY BXXX,YY+5190 ;5.190 HIGH
XY XX+125,YY+5190
CON XX,YY+5090
EXY 125,-2380
CON XX,YY+2340
ORG .-1
XY XX,YY
FMARK
PADDLE XX,YY+5090,"A",1
PADDLE XX,YY+2340,"B",1
FMARK
PADDLE XX,YY+5090,"A",2
PADDLE XX,YY+2340,"B",2
FMARK
REPEAT 2,<
XY XX+1420,YY+5680
XY XX+1420,YY-550
FMARK
>
XY XX-3815,YY-1835
XY XX-6815,YY+5965
XY XX+185,YY+5965
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-6
;END OF DEC DOUBLE HEIGHT BOARD
;7 BEGIN LONG DEC QUAD HEIGHT BOARD (CURRENTLY 10.430 X 12.500)
IFE CRDTYP-7<
NAME DECLQ,< >
PRINTS/
COMPILING LONG DEC QUAD HEIGHT CARD
/
CARD: CRDVER
XXX←5810
BXXX←XXX-12000 ;12 INCHES OF BOARD SPACE
XY XXX,-5220,I
XY BXXX,-5220
XY BXXX,5215
XY XXX+125,5215
CONT 5090
EXY 125,-2380
CONB YYY-2750
EXY 125,-2380
CONT YYY-2500
EXY 125,-2380
CONB YYY-2750
ORG .-1
XY XXX,-5220
FMARK
YYY←5090
PADDLE(XXX,YYY,"A",1)
PADDLE(XXX,YYY-2750,"B",1)
PADDLE(XXX,YYY-2500-2750,"C",1)
PADDLE(XXX,YYY-2750*2-2500,"D",1)
FMARK
PADDLE(XXX,YYY,"A",2)
PADDLE(XXX,YYY-2750,"B",2)
PADDLE(XXX,YYY-2750-2500,"C",2)
PADDLE(XXX,YYY-2750*2-2500,"D",2)
FMARK
REPEAT 2,<
XY XXX+1420,5715
XY XXX+1420,-5715
FMARK
>
XY 0,-6000
XY -3000,6000
XY 4000,6000
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-7
;END OF LONG DEC QUAD HEIGHT BOARD
;8 BEGIN LONG DEC QUAD HEIGHT BOARD WITH 2 BACK CONNECTORS (CURRENTLY 10.430 X 12.500)
IFE CRDTYP-8<
NAME DECLQB,< >
PRINTS/
COMPILING LONG DEC QUAD HEIGHT CARD WITH BACK CONNECTORS
/
CARD: CRDVER
XXX←5810
BXXX←XXX-12000 ;12 INCHES OF BOARD SPACE
XY XXX,-5220,I
XY BXXX-125,-5220
XY BXXX-125,-2885
BCON -2885
BEXY -125,3240
BCON YYY+3240
XY BXXX-125,3910
XY BXXX-125,5215
XY XXX+125,5215
CONT 5090
EXY 125,-2380
CONB YYY-2750
EXY 125,-2380
CONT YYY-2500
EXY 125,-2380
CONB YYY-2750
ORG .-1
XY XXX,-5220
FMARK
YYY←5090
PADDLE(XXX,YYY,"A",1)
PADDLE(XXX,YYY-2750,"B",1)
PADDLE(XXX,YYY-2500-2750,"C",1)
PADDLE(XXX,YYY-2750*2-2500,"D",1)
BPADDLE(-2885,"F",1)
BPADDLE(-2885+3240,"E",1)
FMARK
PADDLE(XXX,YYY,"A",2)
PADDLE(XXX,YYY-2750,"B",2)
PADDLE(XXX,YYY-2750-2500,"C",2)
PADDLE(XXX,YYY-2750*2-2500,"D",2)
BPADDLE(-2885,"F",2)
BPADDLE(-2885+3240,"E",2)
FMARK
REPEAT 2,<
XY BXXX-1420,-5715
XY BXXX-1420,5715
XY XXX+1420,-5715
XY XXX+1420,5715
FMARK
>
XY 0,-6000
XY -3000,6000
XY 4000,6000
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-8
;END OF LONG DEC QUAD HEIGHT BOARD WITH 2 BACK CONNECTORS
;9 BEGIN INTEL CARD (8.175 X 10.5)
IFE CRDTYP-9<
NAME INTEL,< >
PRINTS/
COMPILING STANDARD INTEL CARD
/
CARD: CRDVER
XY -5250,-4090,I
XY 5250,-4090
XY 5250,4085
XY -5250,4085
XY -5250,3005
XY -5480,2995
XY -5530,2955
XY -5530,-3310
XY -5480,-3350
XY -5250,-3360
XY -5250,-4090
FMARK
FOR PNN←1,2 ;ODD FOR COMPONENT SIDE FINGERS (FIRST PASS)
< ; EVEN FOR SOLDER SIDE FINGERS (SECOND PASS)
PN←←PNN
FOR K←2885,2510,-125
< XY -5150,K ;FOUR LONG POWER PINS AT TOP OF CARD
XY -6000,K
CCPIN "A",PN
PN←←PN+2
>
FOR K←2385,-2990,-125 ;44 SHORTER FINGERS FOR REGULAR SIGNALS
< XY -5250,K
XY -6000,K
CCPIN "A",PN
PN←←PN+2
>
FOR K←-3115,-3240,-125 ;TWO LONG POWER PINS AT BOTTOM OF CARD
< XY -5150,K
XY -6000,K
CCPIN "A",PN
PN←←PN+2
>
FMARK
>
REPEAT 2,<
XY -6000,5000
XY -6000,-5000
FMARK
>
XY 0,-4750
XY 5000,4750
XY -4000,4750
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-9
;END OF INTEL CARD
;10 BEGIN DEC HEX HEIGHT BOARD (8.175 X 15.650????)
IFE CRDTYP-10<
NAME DECH,< >
PRINTS/
COMPILING DEC HEX HIGH CARD
/
CARD: CRDVER
XXX←3835
BXXX←XXX-7705
XY XXX,-7845,I
XY BXXX,-7845
XY BXXX,7840
XY XXX+125,7840
YYY←7840-125
EXY 125,0
EXY 815-60,0
EXY 815-40,-2240
EXY 0,-2240
EXY 0,-2380
EXY 125,-2380
YYY←YYY-2750
EXY 125,0
EXY 815-40,0
EXY 815-20,-2240
EXY 0,-2240
EXY 0,-2380
EXY 125,-2380
YYY←YYY-2500
EXY 125,0
EXY 815-20,0
EXY 815,-2240
EXY 0,-2240
EXY 0,-2380
EXY 125,-2380
YYY←YYY-2750
EXY 125,0
EXY 815,0
EXY 815-20,-2240
EXY 0,-2240
EXY 0,-2380
EXY 125,-2380
YYY←YYY-2500
EXY 125,0
EXY 815-20,0
EXY 815-40,-2240
EXY 0,-2240
EXY 0,-2380
EXY 125,-2380
YYY←YYY-2750
EXY 125,0
EXY 815-40,0
EXY 815-60,-2240
EXY 0,-2240
XY XXX,-7845
FMARK
XXX←4000 ;MOVE FINGERS OUT
YYY←7840-125
ONEPADDLE(YYY,"A",1)
ONEPADDLE(YYY-2750,"B",1)
ONEPADDLE(YYY-2500-2750,"C",1)
ONEPADDLE(YYY-2750*2-2500,"D",1)
ONEPADDLE(YYY-2750*2-2500*2,"E",1)
ONEPADDLE(YYY-2750*3-2500*2,"F",1)
FMARK
ONEPADDLE(YYY,"A",2)
ONEPADDLE(YYY-2750,"B",2)
ONEPADDLE(YYY-2750-2500,"C",2)
ONEPADDLE(YYY-2750*2-2500,"D",2)
ONEPADDLE(YYY-2750*2-2500*2,"E",2)
ONEPADDLE(YYY-2750*3-2500*2,"F",2)
FMARK
REPEAT 2,<
XY XXX+1420,-8350
XY XXX+1420,8350
FMARK
>
XY XXX-500,-8350
XY BXXX-500,0
XY XXX-1000,8350
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-10
;END OF DEC HEX HIGH
;11 BEGIN INTEL CARD SPECIAL FOR TED(8.175 X 10.5)
IFE CRDTYP-11<
PRINTS/
COMPILING TED'S SPECIAL INTEL CARD
/
NAME INTELT
CARD: CRDVER
XY -5250,-4090,I
XY 5250,-4090
XY 5250,4085
XY -5250,4085
XY -5250,3005
XY -5480,3005
XY -5530,2955
XY -5530,-3310
XY -5480,-3360
XY -5250,-3360
XY -5250,-4090
FMARK
PNP←"A"
PN←←1
FOR K←2885,-3240,-125
< XY -5250,K ;COMPONENT SIDE FINGERS
XY -6000,K
CCPIN "A",PN
PN←←PN+2
>
FMARK
FMARK ;NO SOLDER SIDE FINGERS
REPEAT 1,<
XY -6000,5000 ;COMPONENT SIDE SHORTING BAR
XY -6000,-5000
FMARK
>
FMARK ;NO SOLDER SIDE SHORTING BAR
XY 0,-4750 ;TARGETS
XY 5000,4750
XY -4000,4750
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-11
;END OF INTEL CARD
;12 BEGIN DEC QUAD HEIGHT BOARD (CURRENTLY 10.460 X 8.430)
IFE CRDTYP-12<
NAME DECQ,< >
PRINTS/
COMPILING STANDARD DEC QUAD HEIGHT CARD
/
CARD: CRDVER
XXX←5810
BXXX←XXX+750-8430
XY XXX,-5230,I
XY BXXX,-5230
XY BXXX,5230
XY XXX+125,5230
CONT 5130 ;sets YYY to argument
EXY 125,-2380
CONB YYY-2750
EXY 125,-2380
CONT YYY-2500
EXY 125,-2380
CONB YYY-2750
ORG .-1
XY XXX,-5230
FMARK
YYY←5130
PADDLE(XXX,YYY,"A",1)
PADDLE(XXX,YYY-2750,"B",1)
PADDLE(XXX,YYY-2500-2750,"C",1)
PADDLE(XXX,YYY-2750*2-2500,"D",1)
FMARK
PADDLE(XXX,YYY,"A",2)
PADDLE(XXX,YYY-2750,"B",2)
PADDLE(XXX,YYY-2750-2500,"C",2)
PADDLE(XXX,YYY-2750*2-2500,"D",2)
FMARK
REPEAT 2,<
XY XXX+1420,5715
XY XXX+1420,-5715
FMARK
>
XY 0,-6000
XY -3000,6000
XY 4000,6000
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-12
;END OF STANDARD DEC QUAD HEIGHT BOARD
;13 BEGIN INTEL EXTENDER CARD (8.175 X 11.5)
IFE CRDTYP-13<
NAME INTELX,< >
PRINTS/
COMPILING INTEL EXTENDER CARD
/
CARD: CRDVER ;OUTLINE
XY -5250,-4090,I
XY 6750,-4090
XY 6750,-3490
XY 6350,-3490
XY 6350,3135
XY 6750,3135
XY 6750,4085
XY -5250,4085
XY -5250,3005
XY -5480,2995
XY -5530,2955
XY -5530,-3310
XY -5480,-3350
XY -5250,-3360
XY -5250,-4090
FMARK
FOR PNN←1,2 ;ODD FOR COMPONENT SIDE FINGERS (FIRST PASS)
< ; EVEN FOR SOLDER SIDE FINGERS (SECOND PASS)
PN←←PNN ;BEGIN EDGE CONNECTOR FINGERS
FOR K←2885,2510,-125
< XY 7250,K ;FOUR LONG POWER PINS ACROSS TOP OF CARD
XY -6000,K
CCPIN "A",PN
PN←←PN+2
>
FOR K←2385,-2990,-125 ;44 SHORTER FINGERS FOR REGULAR SIGNALS
< XY -5250,K
XY -6000,K
CCPIN "A",PN
PN←←PN+2
>
FOR K←-3115,-3240,-125 ;TWO LONG POWER PINS ACROSS BOTTOM OF CARD
< XY 7250,K
XY -6000,K
CCPIN "A",PN
PN←←PN+2
> ;END EDGE CONNECTOR FINGERS
PN←←PNN+8 ;BEGIN FINGERS FOR EXTENDER SOCKET MOUNTING
FOR K←2385,-2990,-125 ;44 SHORTER FINGERS FOR REGULAR SIGNALS
< XY 5700,K
XY 7250,K
CCPIN "A",PN
PN←←PN+2
>
FMARK
>;END FOR
REPEAT 2,<
XY -6000,5000 ;EDGE FINGER SHORTING BAR
XY -6000,-5000
XY 7250,5000 ;EXTENDER SOCKET MOUNT SHORTING BAR
XY 7250,-5000
FMARK
>
XY 0,-4750 ;TARGETS
XY 5000,4750
XY -4000,4750
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-13
;END OF INTEL EXTENDER CARD
;14 BEGIN DATAMEDIA CARD (6.1 X 8.9)
IFE CRDTYP-=14<
NAME DM,< >
PRINTS/
COMPILING DATAMEDIA CARD
/
CARD: CRDVER ;OUTLINE
XY -4090,-3050,I
XY 4200,-3050
XY 4450,-2800
XY 4450,3050
XY -4090,3050
XY -4090,2545
XY -4390,2545
XY -4450,2485
XY -4450,275
XY -4390,215
XY -4090,215
XY -4090,90
XY -4390,90
XY -4450,30
XY -4450,-2490
XY -4390,-2550
XY -4090,-2550
XY -4090,-3050
FMARK
DEFINE PIN(Y)<
XY -4050,Y ;CARD END
XY -5000,Y ;SHORTED END
0 ;NO NOMENCLATURE
>;DEFINE PIN
REPEAT 2,<
PIN 2395
PIN 2240
PIN 2085
PIN 1925
PIN 1770
PIN 1615
PIN 1460
PIN 1305
PIN 1145
PIN 990
PIN 835
PIN 680
PIN 525
PIN 365
PIN -60
PIN -215
PIN -370
PIN -530
PIN -685
PIN -840
PIN -995
PIN -1150
PIN -1310
PIN -1465
PIN -1620
PIN -1775
PIN -1930
PIN -2090
PIN -2244
PIN -2400
FMARK
>;END REPEAT
REPEAT 2,<
XY -5000,3200 ;EDGE FINGER SHORTING BAR
XY -5000,-3200
FMARK
>
XY -4000,4000 ;TARGETS
XY 4000,4000
XY 0,-4000
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-14
;END OF DATAMEDIA CARD
;15 BEGIN S1 MU BOARD (8.775 X 16)
IFE CRDTYP-15<
NAME S1MU,< >
PRINTS/
COMPILING S1 MU CARD
/
CARD: CRDVER
XY -8000,-4175,I
XY -8000,6075
XY -7750,6325
XY 7750,6325
XY 8000,6075
XY 8000,-4175
XY 7105,-4175
XY 7105,-4575
XY 765,-4575
XY 765,-4175
XY -475,-4175
XY -475,-4575
XY -6815,-4575
XY -6815,-4175
XY -8000,-4175
FMARK
FOR PNN←2,1,-1 ;EVEN FOR COMPONENT SIDE FINGERS (FIRST PASS)
< ; ODD FOR SOLDER SIDE FINGERS (SECOND PASS)
PN←←PNN
FOR K←7105-90,7105-90-125*49,-125
< XY K,-4175 ;50 PINS
XY K,-4925
CCPIN "A",PN
PN←←PN+2
>
FOR K←-475-90,-475-90-125*49,-125 ;50 PINS
< XY K,-4175
XY K,-4925
CCPIN "A",PN
PN←←PN+2
>
FMARK
>
REPEAT 2,<
XY -8000,-4925 ;SHORTING BARS
XY 8000,-4925
FMARK
>
XY 0,-5400 ;TARGETS
XY 5000,6725
XY -4000,6725
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-15
;END OF S1 MU
;16 BEGIN S1 BACKPANEL (15.6 X 18)
IFE CRDTYP-16<
NAME S1BACK,< >
PRINTS/
COMPILING S1 BACKPANEL
/
CARD: CRDVER
XY -9000,-7150,I
XY -9000,7700
XY 9000,7700
XY 9000,-7150
XY -9000,-7150
FMARK
FMARK ;NO FINGERS
FMARK
FMARK ;NO SHORTING BARS
FMARK
XY -9500,0 ;TARGETS
XY 9500,4000
XY 9500,-3000
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-16
;END OF S1 BACKPANEL
;17 BEGIN S1 ADAPTER (1.275 X 0.985)
IFE CRDTYP-17<
NAME S1ADPT,< >
PRINTS/
COMPILING S1 ADAPTER
/
CARD: CRDVER
XY -875,-215,I
XY -875,760
XY 400,760
XY 400,-215
XY -875,-215
FMARK
FMARK ;NO FINGERS
FMARK
FMARK ;NO SHORTING BARS
FMARK
XY -1250,0 ;TARGETS
XY 800,400
CMARK
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-17
;END OF S1 ADAPTER
;18 BEGIN MICRO SWITCH SERIALIZER
IFE CRDTYP-18,<
NAME MICROS
PRINTS/
COMPILING MICRO SWITCH SERIALIZER
/
CARD: CRDVER
REPEAT 1,
< XY -4687,-2125,I
XY -4687,-1000
XY -5000,-1000
XY -5000,1000
XY -4687,1000
XY -4687,2125
XY 5000,2125
XY 5000,1000
XY 5313,1000
XY 5313,-1000
XY 5000,-1000
XY 5000,-2125
XY -4687,-2125
FMARK
>
FOR PNP←"A","B"
< PN←←1
FOR K←-875,875,156
< XY 5000,K
XY 6000,K
CPIN "A",PNP,PN
XY -4687,K
XY -5687,K
CPIN "B",PNP,PN
PN←←PN+1
>
FMARK
>
REPEAT 2,
< XY 6000,2125
XY 6000,-2125
XY -5687,2125
XY -5687,-2125
FMARK
>
REPEAT 1,
< XY 0,-3000
XY 4000,3000
XY -4000,3000
CMARK
>
LENGTH←.-CARD
END STRT
>;IFE CRDTYP-18
;END OF MICRO SWITCH SERIALIZER
;END OF ALL CARDS
PRINTS/
UNKNOWN OR NULL CARD NAME!
/
;NO END STMT SO FAIL WILL DIE AFTER PRINTING ABOVE MESSAGE